home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pardoxed.arc / REPEAT.SC < prev    next >
Encoding:
Text File  |  1987-08-15  |  457 b   |  30 lines
  1. Clear
  2.  
  3. dupmax = 40
  4. dupmin = 2
  5.  
  6. ?  "Enter number of repititions: "
  7. accept "N" Default dupmin to second
  8. if ((second > dupmax) or (second < dupmin))
  9.  then
  10.   Clear
  11.   message "There is a limit of 40 repeats- min is 2, for 1 duplicate use F6"
  12.   sleep 2000
  13.   Return
  14. endif
  15. ?
  16. ?
  17. first = 1
  18. EditKey
  19. copytoarray rec
  20.  
  21. while  first <= second
  22.  CtrlEnd
  23.  Down
  24.  Ins
  25.  copyfromarray rec
  26.  @4,1 ?? "#",first," duplicated"
  27.  first = first +1
  28. Endwhile
  29.  
  30.